﻿Imports TransportadoraToledoBLL
Public Class frm_contas_a_pagar
    Dim objBll As New ContasAPagarBLL
    Dim controle As Char

    Private Sub bSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSair.Click
        Me.Close()
        dgvDados.ClearSelection()
        dgDados2.ClearSelection()
    End Sub

    Private Sub bPesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPesquisar.Click
        Try
            If (cbMovimento.SelectedIndex = -1) Then
                MessageBox.Show("Por favor Insira um Movimento!")
            ElseIf (dtInicio.Value > dtFim.Value) Then
                MessageBox.Show("Data Inicial Maior que Final!")
            Else
                If (cbMovimento.SelectedIndex = 0) Then
                    dgvDados.DataSource = objBll.localizaOrdemDeServicos(dtInicio.Value, dtFim.Value)
                    dgvDados.Columns(1).Width = 50
                    dgvDados.Columns(2).Width = 180
                    dgvDados.Columns(3).DefaultCellStyle.Format = "R$ ###,###,##0.00"
                    dgvDados.Columns(0).ReadOnly = False
                    dgvDados.Columns(1).ReadOnly = True
                    dgvDados.Columns(2).ReadOnly = True
                    dgvDados.Columns(3).ReadOnly = True
                    dgvDados.Columns(4).ReadOnly = True
                    controle = "S"
                End If
                If (cbMovimento.SelectedIndex = 1) Then
                    dgvDados.DataSource = objBll.localizarAbastecimento(dtInicio.Value, dtFim.Value)
                    dgvDados.Columns(1).Width = 50
                    dgvDados.Columns(2).Width = 180
                    dgvDados.Columns(3).DefaultCellStyle.Format = "R$ ###,###,##0.00"
                    dgvDados.Columns(0).ReadOnly = False
                    dgvDados.Columns(1).ReadOnly = True
                    dgvDados.Columns(2).ReadOnly = True
                    dgvDados.Columns(3).ReadOnly = True
                    dgvDados.Columns(4).ReadOnly = True
                    controle = "A"
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dgvDados_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgvDados.DataBindingComplete
        Dim total As Decimal
        For Each col As DataGridViewRow In dgvDados.Rows
            total = total + col.Cells(3).Value
        Next
        txtTotal.Text = Format(total, "R$ ###,###,##0.00").ToString()
    End Sub

    Private Sub bSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSalvar.Click
        Dim formas As String
        Dim dataPgto As Date
        Dim codigo As Integer
        Dim descricao As String
        Dim dataLancamento As Date

        If controle = "A" Then
            For Each col As DataGridViewRow In dgvDados.Rows
                dgvDados.ReadOnly = True
                Dim frm As New frm_forma
                If col.Cells(0).Value = True Then
                    codigo = col.Cells(1).Value
                    frm.lancamento = codigo
                    descricao = col.Cells(2).Value + " " + col.Cells(4).Value
                    dataLancamento = col.Cells(4).Value

                    frm.ShowDialog()
                    formas = frm.forma
                    dataPgto = frm.dataPgto

                    frm = Nothing

                    If formas = "" Then
                        MessageBox.Show("ESCOLHA UMA FORMA DE PAGAMENTO!")
                    ElseIf (dataPgto < dataLancamento) Then
                        MessageBox.Show("DATA DO PAGAMENTO INVALIDA!" + vbCrLf + "NÃO PODE SER INFERIOR A DATA DO MOVIMENTO!")
                    ElseIf (dataPgto > Date.Now) Then
                        MessageBox.Show("DATA DO PAGAMENTO INVALIDA!" + vbCrLf + "NÃO PODE SER MAIOR QUE A DATA ATUAL!")
                    Else
                        objBll.inserirAbastecimento(codigo, descricao, formas, dataPgto)
                    End If
                End If
            Next
            dgvDados.ReadOnly = False
        End If

        If controle = "S" Then
            For Each col As DataGridViewRow In dgvDados.Rows
                dgvDados.ReadOnly = True
                Dim frm As New frm_forma
                If col.Cells(0).Value = True Then
                    codigo = col.Cells(1).Value
                    frm.lancamento = codigo
                    descricao = col.Cells(2).Value + " " + col.Cells(4).Value
                    dataLancamento = col.Cells(4).Value

                    frm.ShowDialog()
                    formas = frm.forma
                    dataPgto = frm.dataPgto

                    frm = Nothing
                    If formas = "" Then
                        MessageBox.Show("ESCOLHA UMA FORMA DE PAGAMENTO!")
                    ElseIf (dataPgto < dataLancamento) Then
                        MessageBox.Show("DATA DO PAGAMENTO INVALIDA!" + vbCrLf + "NÃO PODE SER INFERIOR A DATA DO MOVIMENTO!")
                    ElseIf (dataPgto > Date.Now) Then
                        MessageBox.Show("DATA DO PAGAMENTO INVALIDA!" + vbCrLf + "NÃO PODE SER MAIOR QUE A DATA ATUAL!")
                    Else
                        objBll.inserirOrdem(codigo, descricao, formas, dataPgto)
                    End If
                End If
            Next
            dgvDados.ReadOnly = False
        End If
        bPesquisar_Click(sender, e)
    End Sub

#Region "TABELA 2"
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPesquisa2.Click
        Try
            If (cbMovimento2.SelectedIndex = -1) Then
                MessageBox.Show("Por favor Insira um Movimento!")
            ElseIf (dtfinal2.Value.Date < dtInicio2.Value.Date) Then
                MessageBox.Show("Data Inicial Maior que Final!")
            Else
                If (cbMovimento2.SelectedIndex = 1) Then
                    dgDados2.DataSource = objBll.localizaOrdemDeServicosBaixados(dtInicio2.Value, dtfinal2.Value)
                    dgDados2.Columns(3).DefaultCellStyle.Format = "R$ ###,###,##0.00"
                    controle = "S"
                End If
                If (cbMovimento2.SelectedIndex = 2) Then
                    dgDados2.DataSource = objBll.localizarAbastecimentoBaixados(dtInicio2.Value, dtfinal2.Value)
                    dgDados2.Columns(3).DefaultCellStyle.Format = "R$ ###,###,##0.00"
                    controle = "A"
                End If
                If (cbMovimento2.SelectedIndex = 0) Then
                    dgDados2.DataSource = objBll.localizaGeral(dtInicio2.Value, dtfinal2.Value)
                    dgDados2.Columns(3).DefaultCellStyle.Format = "R$ ###,###,##0.00"
                End If
            End If

        Catch ex As Exception

        End Try
    End Sub

    Private Sub dgDados2_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgDados2.DataBindingComplete
        Dim total As Decimal
        For Each col As DataGridViewRow In dgDados2.Rows
            total = total + col.Cells(3).Value
        Next
        TextBox1.Text = Format(total, "R$ ###,###,##0.00").ToString()
    End Sub
#End Region

    Private Sub frm_contas_a_pagar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cbMovimento.SelectedIndex = 0
        cbMovimento2.SelectedIndex = 0
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub bAjuda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAjuda.Click
        Dim Ajuda As String
        Ajuda = Application.StartupPath
        Ajuda = Ajuda.Replace("\bin\Debug", "\Arquivo de Ajuda\contasPagar.pdf")
        Dim Ie As Object
        Ie = CreateObject("InternetExplorer.Application")
        Ie.Visible = True
        Ie.Navigate(Ajuda)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Ajuda As String
        Ajuda = Application.StartupPath
        Ajuda = Ajuda.Replace("\bin\Debug", "\Arquivo de Ajuda\contasPagar.pdf")
        Dim Ie As Object
        Ie = CreateObject("InternetExplorer.Application")
        Ie.Visible = True
        Ie.Navigate(Ajuda)
    End Sub

End Class